home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Scriptable Authoring.dir / Scripts_42_Take control of the puppets for the costume selection screen.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  463 b   |  13 lines
  1. global gPuppetList, gCurrentCastLib, gCostumeSpriteList
  2.  
  3. on exitFrame
  4.   PuppetCostumes(1)
  5.   if gCurrentCastLib = "set1" then
  6.     set the memberNum of sprite the setOneCast of gPuppetList to the number of member "Switch Cast Mortice On"
  7.   else
  8.     set the memberNum of sprite the setTwoCast of gPuppetList to the number of member "Switch Cast Mortice On"
  9.   end if
  10.   SelectMask(the mask of gCostumeSpriteList)
  11.   SelectCostume(the costume of gCostumeSpriteList)
  12. end
  13.